home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / syswit / sysglob.bas < prev    next >
BASIC Source File  |  1995-05-08  |  1KB  |  23 lines
  1. DefInt A-Z
  2.  
  3. Declare Function WRitePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  4. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  5. Declare Function ExitWindows Lib "User" (ByVal dwReserved As Long, ByVal wReturnCode As Integer) As Integer
  6. Declare Function GetDosEnvironment& Lib "Kernel" ()
  7. Declare Sub Str2LP Lib "VBPOINT.DLL" (SP As Any, DP As Any, ByVal nBytes)
  8. Declare Function LStrLen Lib "Kernel" (ByVal LPSTR&)
  9. Declare Function LP2Str$ Lib "VBPOINT.DLL" (LP As Any, ByVal pLen)
  10. Global Handoff As Integer
  11. Global ConfigName(5) As String
  12. Global ConfigFile(5) As String
  13. Global Const True = -1
  14. Global Const False = 0
  15. Global Windir As String
  16. Global SysFile As String
  17. Global WasRecordChanged
  18. Global Const IDYES = 6
  19. Global Const IDNO = 7
  20. Global WorkingFileName As String
  21. Global FileNum As Integer
  22.  
  23.